home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Precision Software Appli…tions Silver Collection 4
/
Precision Software Applications Silver Collection Volume 4 (1993).iso
/
stats
/
mathx30.exe
/
MATHX.ENV
< prev
next >
Wrap
Text File
|
1991-08-07
|
16KB
|
508 lines
Z=INFO:Z=INT(Z*.0001):IF Z=>300}5
| MATHX.ENV file |
| Copyright 1991 by David Denker, Box 115, Isanti, Mn. 55040 |
DSP nn; Sorry, This file must be used with MATHX V3.00 or greater!;:go140
#5
wind t1z:s=sloc:call97:mon2:i=mloc
IF S=255}140:if s>0}}if s<7}3:go2
#1:WOFF
#2:call4:r=s
#3:on(s)g{7,20,40,120,150,200}:go99
#4:s=0
if i>10001}}if i<10012}}s=1
if i>10011}}if i<10024}}s=2
IF I>10023}}IF I<10037}}s=3
if i>10036}}if i<10047}}s=4
IF I>10046}}IF I<10058}}s=5
if i>10067}}if i<10078}}s=6
ret
#7:i=apli:if i=2}8
EVHD H" "W" COMMANDS "H" PARAMETERS INFORMATION LOAD∙APL
UTILITIES ":go9
#8:EVHD H" "W" COMMANDS "H" PARAMETERS INFORMATION LOAD∙APL
UTILITIES MENU∙APL "
#9
i=0:j=0:x=11:windd "┘ └
"!C"lear the Screen
C"!l"ear Inst. Line
"!R"un Application
Go to "!D"OS Shell
"!S"ave Inst. Line
"!G"et saved Line
"!E"dit Application
──────────────────
"!Q"UIT MATHX . . ."xr1c1
i=ewb:if i=14}}i=1:if i=4}}i=14:if i<>14}}i=4
f=1:call100:if r=1}1:if r=2}99:if r=3}20:if r=5}3:if r=4}c18
moff:woff:if j<>1}10:cls:go99
#10:if j<>2}11:clrl:go99
#11:if j<>3}12:@:go99
#12:if j<>4}13:dos:go99
#13:if j<>5}14:save:go99
#14:if j<>6}15:get:go99
#15:if j=x-2}140
if j<>7}16:edit:go99
#16:if j=x-2}140:go99
#18:j=data k{0,0,1,4,7,0,6,0,0,0,0,2,0,0,0,0,9,3,5,0,0,0,0,0,0,0}:ret
#19:EVHD H" COMMANDS "W" PARAMETERS "H" INFORMATION LOAD∙APL
UTILITIES MENU∙APL ":go21
#20:z=0:a=info:a=int((a-int(a/1000)*1000)/100):i=apli:if i=2}19
EVHD H" COMMANDS "W" PARAMETERS "H" INFORMATION LOAD∙APL
UTILITIES "
#21
x=15+a+a:windd wr(x)wc31r1c11"┘ └
"nnnnnnnnnnnnnnnn
i=0:j=0
#22
p=parmp
if p=0}}wdsp L1; ;!P;rinter Disabled ;
if p=1}}wdsp L1; ;!P;RINTER Enabled ;
p=parmg
if p=0}}wdsp L2; DEGREE Angular ;!M;ode ;
if p=1}}wdsp L2; RADIAN Angular ;!M;ode ;
if p=2}}wdsp L2; GRADS Angular ;!M;ode ;
p=parmc
if p=1}}wdsp L3" Complement Negative "!H"EX "
if p=0}}wdsp L3" Display Negative "!H"EX "
p=parma
if p=0}}wdsp L4" "!A"nswer using COMMAs "
IF p=1}}wdsp L4" "!A"nswer using No Commas "
p=parmr
if p=0}}wdsp L5; ROUND ;!O;FF Answer ;
if p=1}}wdsp L5; No Rounding ;!O;ff of Answer ;
p=parme
if p=1}}wdsp L6; Scientific ;!N;otation uses E ;
if p=0}}wdsp L6; Scientific ;!N;otation uses [] ;
p=parmx
if p=0}}wdsp L7; No ;!S;cientific Notation ;
if p=1}}wdsp L7; ;!S;CIENTIFIC NOTATION Enabled ;
p=parmdl
wdsp L8; DIGITS ;!L;EFT of "." =;u2.0(p); ;
p=parmdr
wdsp L9; DIGITS ;!R;IGHT of "." =;u2.0(p); ;
p=parmdq
wdsp L10; ;!E;REQ statement =;u2.0(p); ;
p=parmq
if p=1}}wdsp L11; ;!Q;UIET Mode ;
if p=0}}wdsp L11; ;!Q;uiet Mode Disabled ;
p=parmi
if p=1}}wdsp L12; INSERT L;!i;ne Edit mode ;
if p=0}}wdsp L12; OVERTYPE L;!i;ne Edit mode ;
if a=0}23
p=parmb
if p=1}}wdsp L13; ;!B;LINKING Enabled ;
if p=0}}wdsp L13; ;!B;linking Disabled ;
wdsp L14; ;!C;hange COLOR Setup . . . ;
#23
WDSP L(13+a+a); ;!D;ONE (save?) ;
f=1:call100:if r>0}}if r<4}84:if r=5}84:if r=4}c37
IF R=4}}WLCC L(J)
if j=12+a+a}}if a=1}60:if j=13+a+a}84
if j<>1}25:p=parmp:if p=0}}pon:if p=1}}poff:z=1:go22
#25:if j<>2}26:p=parmg:if p=0}}radm:if p=1}}grad:if p=2}}degm:z=1:go22
#26:if j<>3}27:p=parmc:if p=0}}con:if p=1}}coff:z=1:go22
#27:if j<>4}28:p=parma:if p=0}}aoff:if p=1}}aon:z=1:go22
#28:if j<>5}29:p=parmr:if p=0}}roff:if p=1}}ron:z=1:go22
#29:if j<>6}30:p=parme:if p=0}}eon:if p=1}}eoff:z=1:go22
#30:if j<>7}31:p=parmx:if p=0}}xon:if p=1}}xoff:z=1:go22
#31:if j<>8}32:p=parmdl:call38:digl(p):z=1:go22
#32:if j<>9}33:p=parmdr:call38:digr(p):z=1:go22
#33:if j<>10}34:p=parmdq:call38:ereq(p):z=1:go22
#34:if j<>11}35:p=parmq:if p=0}}qon:if p=1}}qoff:z=1:go22
#35:if j<>12}36:p=parmi:if p=0}}ins:if p=1}}over:z=1:go22
#36:if a=0}84:if j<>13}84:p=parmb:if p=0}}bon:if p=1}}boff:z=1:go22
#37:j=data k{4,13,14,0,10,0,0,3,12,0,0,8,2,6,5,1,11,9,7,0,0,15,0,0,0,0}
if a<>0}r:if j=13}}j=0:if j=14}}j=0:if j=15}}j=13:ret
#38:p=data p{1,2,3,4,5,6,7,8,9,10,12,12,14,0,0}:ret
#39:EVHD H" COMMANDS PARAMETERS "W" INFORMATION "H" LOAD∙APL
UTILITIES MENU∙APL ":go41
#40:i=apli:if i=2}39
EVHD H" COMMANDS PARAMETERS "W" INFORMATION
"H" LOAD∙APL UTILITIES "
#41:I=0:J=0:X=7:windd "┘ └
"!H"ELP . . .
List "!F"UNCTION Keys
List "!M"EMORIES
List "!V"ARIABLES
"!A"bout MATH EXTRA"xr1c23
f=1:CALL 100:IF R=1}1:IF R=2}20:IF R=3}120:if r=5}3:if r=4}c49
WOFF:IF J<>1}42
windd wr3wc14R1C23"┘ └
Working! "
$A="MATHX.HLP":RUN$A:GO99
#42:if j<>2}43:X=APLI:IF X=0}}X=1
windd wr(17+X)wc48"┘ └ FUNCTION KEY DEFINITIONS:
"nnnnnnnn" F9= INSERT Last ANSWER Displayed (Not HEX)
F10= REDO Last INSTRUCTION LINE
S-F1= Pop-down COMMANDS Menu
S-F2= Pop-down PARAMETERS Menu
S-F3= Pop-down INFORMATION Menu
S-F4= Pop-down LOAD∙APL Menu
S-F5= Pop-down UTILITIES Menu"nnn:WDSP L16
IF X=2}}WDSP; S-F6= Pop-down MENU∙APL (APPLICATION MENU);n
WDSP" S-F10= Display HELP INFORMATION"
wdsp L1:list:MON2
I=KYIN:IF I>9999}}IF I<10079}1:if I=275}47:if I=277}48:GO99
#43:IF J<>3}50
getm
#44
windd wr16wc67"───────────┘ └ STRING MEMORIES: "nnnnnnnnnnnnnnn
wdsp L1" $A="$A"
$B="$B"
$C="$C"
$D="$D"
$E="$E"
$F="$F"
$G="$G"
$H="$H"
$I="$I"
$J="$J"
$K="$K"
$L="$L"
$M="$M"
PAGE DOWN "
mon2:MON2:I=KYIN:IF I>9999}}IF I<10079}1
IF I=281}45:if I=275}47:if I=277}48:IF I<10000}99
I=MLIN:IF I=114}45:GO99
#45
windd "───────────┘ └ STRING MEMORIES: "nnnnnnnnnnnnnnn
wdsp L1" PAGE UP
$N="$N"
$O="$O"
$P="$P"
$Q="$Q"
$R="$R"
$S="$S"
$T="$T"
$U="$U"
$V="$V"
$W="$W"
$X="$X"
$Y="$Y"
$Z="$Z
mon2:I=KYIN:IF I>9999}}IF I<10079}1
IF I=273}44:if I=275}47:if I=277}48:IF I<10000}99
I=MLIN:IF I=101}44:GO99
#47:go20
#48:go120
#49:j=data k{5,0,0,0,0,2,0,1,0,0,0,0,3,0,0,0,0,0,0,0,0,4,0,0,0,0}:ret
#50:IF J<>4}59
#51
windd wr16wc48"┘ └ VARIABLES: "nnnnnnnnnnnnnnn
WDSP L1U^14.14" A="(A')"
B="(B')N" C="(C')N" D="(D')N" E="(E')N" F="(F')"
G="(G')N" H="(H')N" I="(I')N" J="(J')N" K="(K')N" L="(L')N" M="(M')"
PAGE DOWN "
mon2:I=KYIN:IF I>9999}}IF I<10079}1
IF I=281}52:if I=275}47:if I=277}48:IF I<10000}99
I=MLIN:IF I=114}52:GO99
#52
windd wr17"┘ └ VARIABLES: "nnnnnnnnnnnnnnnn
WDSP L1U^14.14" PAGE UP
N="(N')N" O="(O')N" P="(P')N" Q="(Q')N" R="(R')N" S="(S')N" T="(T')"
U="(U')N" V="(V')N" W="(W')N" X="(X')N" Y="(Y')N" Z="(Z')"
PAGE DOWN "
mon2:I=KYIN:IF I>9999}}IF I<10079}1
IF I=281}53:IF I=273}51:if I=275}47:if I=277}48:IF I<10000}99
I=MLIN:IF I=115}53:IF I=101}51:GO99
#53
windd "┘ └ VARIABLES: "nnnnnnnnnnnnnnnn
WDSP L1U^14.14" PAGE UP
A'="(A'')N" B'="(B'')N" C'="(C'')N" D'="(D'')N" E'="(E'')N" F'="(F'')"
G'="(G'')N" H'="(H'')N" I'="(I'')N" J'="(J'')"
K'="(K'')N" L'="(L'')N" M'="(M'')"
PAGE DOWN "
mon2:I=KYIN:IF I>9999}}IF I<10079}1
IF I=281}54:IF I=273}52:if I=275}47:if I=277}48:IF I<10000}99
I=MLIN:IF I=115}54:IF I=101}52:GO99
#54
windd "┘ └ VARIABLES: "nnnnnnnnnnnnnnnn
WDSP L1U^14.14" PAGE UP
N'="(N'')N" O'="(O'')N" P'="(P'')N" Q'="(Q'')N" R'="(R'')"
S'="(S'')N" T'="(T'')N" U'="(U'')N" V'="(V'')N" W'="(W'')"
X'="(X'')N" Y'="(Y'')N" Z'="(Z'')"
PAGE DOWN "
mon2:I=KYIN:IF I>9999}}IF I<10079}1
IF I=281}55:IF I=273}53:if I=275}47:if I=277}48:IF I<10000}99
I=MLIN:IF I=115}55:IF I=101}53:GO99
#55
windd "┘ └ VARIABLES: "nnnnnnnnnnnnnnnn
WDSP L1U^14.14" PAGE UP
A''="(A''')N" B''="(B''')N" C''="(C''')N" D''="(D''')N" E''="(E''')"
F''="(F''')N" G''="(G''')N" H''="(H''')N" I''="(I''')N" J''="(J''')"
K''="(K''')N" L''="(L''')N" M''="(M''')"
PAGE DOWN "
mon2:I=KYIN:IF I>9999}}IF I<10079}1
IF I=281}56:IF I=273}54:if I=275}47:if I=277}48:IF I<10000}99
I=MLIN:IF I=115}56:IF I=101}54:GO99
#56
windd "┘ └ VARIABLES: "nnnnnnnnnnnnnnnn
WDSP L1U^14.14" PAGE UP
N''="(N''')N" O''="(O''')N" P''="(P''')N" Q''="(Q''')N" R''="(R''')"
S''="(S''')N" T''="(T''')N" U''="(U''')N" V''="(V''')N" W''="(W''')"
X''="(X''')N" Y''="(Y''')N" Z''="(Z''')"
PAGE DOWN "
mon2:I=KYIN:IF I>9999}}IF I<10079}1
IF I=281}57:IF I=273}55:if I=275}47:if I=277}48:IF I<10000}99
I=MLIN:IF I=115}57:IF I=101}55:GO99
#57
GETV
windd wr17"┘ └ VARIABLES: "nnnnnnnnnnnnnnnn
WDSP L1U^14.14" PAGE UP
A'''="(A)N" B'''="(B)N" C'''="(C)N" D'''="(D)N" E'''="(E)"
F'''="(F)N" G'''="(G)N" H'''="(H)N" I'''="(I)N" J'''="(J)"
K'''="(K)N" L'''="(L)N" M'''="(M)"
PAGE DOWN "
mon2:I=KYIN:IF I>9999}}IF I<10079}1
IF I=281}58:IF I=273}56:if I=275}47:if I=277}48:IF I<10000}99
I=MLIN:IF I=115}58:IF I=101}56:GO99
#58
GETV
windd wr16"┘ └ VARIABLES: "nnnnnnnnnnnnnnn
WDSP L1U^14.14" PAGE UP
N'''="(N)N" O'''="(O)N" P'''="(P)N" Q'''="(Q)N" R'''="(R)"
S'''="(S)N" T'''="(T)N" U'''="(U)N" V'''="(V)N" W'''="(W)"
X'''="(X)N" Y'''="(Y)N" Z'''="(Z)
mon2:I=KYIN:IF I>9999}}IF I<10079}1
IF I=273}57:if I=275}47:if I=277}48:IF I<10000}99
I=MLIN:IF I=101}57:GO99
#59:IF J<>5}99
windd wr9wc28"┘ └ MATH EXTRA:
Copyright 1989,1990,1991
By: David Denker
204 4th Ave. S.
Box 115
Isanti, Mn. 55040
Phone: 612-444-4916
(evenings & weekends)"
MON2:I=KYIN:IF I>9999}}IF I<10079}1:if I=275}47:if I=277}48:GO99
#60
x=22:windd wr(x)wc36r1c11"┘ └─ COLOR SETUP
"nnnnnnnnnnnnnnnnnnnn
i=0:j=0:K=0:U=MWBB:V=MWBF:W=EWF:Y=EWB
wdsp L6B(Y)F(W); MAIN SCREEN Border Background
MAIN SCREEN Border Foreground
APPLICATION Border Background
APPLICATION Border Foreground
UTILITIES Border Background
UTILITIES Border Foreground
Main HEADER Background
Main HEADER Foreground
Main MENUs Border Background
Main MENUs Border Foreground
Main MENUs Background
Main MENUs Foreground
Main MENUs SELECTION Background
Main MENUs SELECTION Foreground
Pick Letter Foreground;
#61
A=MWBB:B=MWBF:C=AWBB:D=AWBF:E=EWBB:F=EWBF:G=EHB:H=EHF:L=PLC
M=ELCB:N=ELCF:O=EWB:Q=EWF:P=UWBB:T=UWBF
WDSP L1B0F4;┌─ DONE ─(save?)─────────────────┐
│;B(A)F(B);╒═MATHX═╕;B(P)F(T);╒═UTLS═╕;B(C)F(D);╒═APL═╕;B(E)F(F);┌┘MENU└┐;B0F4;│
│;B(A)F(B);╘═══════╛;B(P)F(T);╘══════╛;B(C)F(D);╘═════╛;
WDSP B(E)F(F);│;B(O)F(L); T;F(Q);ext ;B(E)F(F);│;B0F4;│
│;B(G)F(H); HEADER LINE ;B(M)F(N); SELECTION ;B(E)F(F);└──────┘;B0F4;│
└────────────────────────────────┘;
call90:if r=4}64:if r>0}}if r<=6}84
#64
if j>0}}if j<6}84
if j<>6}65:P=MWBB:CALL79:MWBB(P):z=1:GO61
#65:if j<>7}66:P=MWBF:CALL79:MWBF(P):z=1:GO61
#66:if j<>8}67:P=AWBB:CALL79:AWBB(P):z=1:GO61
#67:IF J<>9}68:P=AWBF:CALL79:AWBF(P):z=1:GO61
#68:IF J<>10}69:P=UWBB:CALL79:UWBB(P):z=1:GO61
#69:IF J<>11}70:P=UWBF:CALL79:UWBF(P):z=1:GO61
#70:IF J<>12}71:P=EHB:CALL79:EHB(P):z=1:GO61
#71:IF J<>13}72:P=EHF:CALL79:EHF(P):z=1:GO61
#72:IF J<>14}73:P=EWBB:CALL79:EWBB(P):z=1:GO61
#73:IF J<>15}74:P=EWBF:CALL79:EWBF(P):z=1:GO61
#74:IF J<>16}75:P=EWB:CALL79:EWB(P):z=1:GO61
#75:IF J<>17}76:P=EWF:CALL79:EWF(P):z=1:GO61
#76:IF J<>18}77:P=ELCB:CALL79:ELCB(P):z=1:GO61
#77:IF J<>19}78:P=ELCF:CALL79:ELCF(P):z=1:GO61
#78:IF J<>20}84:P=PLC:CALL79:PLC(P):z=1:GO61
#79:p=p+1:if p=16}}p=0:RET
#80
A=MWBB:B=MWBF:IF A<>U}82:IF B<>V}82:go86
#82
tone68:windd bb4bf15f0b14; NOTE:
The MAIN SCREEN BORDER color changes will not
take effect until the next time you use MATHX. ;X
a=kyin:go86
#84:sc:if z=0}86
wlcc l0
TONE68:MENUU bb4bf15f0b14p4i; PARAMETERS
;!S;AVE changes to disk.
;!T;emporary change.;x
A=MLVL:IF A=1}85:GO86
#85:SAVS:GO80
#86:rc:if r=1}1:if r=2}7:if r=3}40:if r=5}3:go99
#90
i=mloc:if i>9999}90:wlcc L(j)
#91
k=kyck:if k>283}}if k<292}112:if k<>0}92
I=MLOC:IF I>9999}}IF I<10079}106
i=mlin:if i=0}91:if i>99}104:if i<6}91:if i=j}91
j=i:go93
#92:if k=13}105:if k=27}105:if j<2}}if k=280}}j=5
if k=272}}if j>1}}j=j-1:if k=280}}if j<x-2}}j=j+1
if k=272}}if j=5}}j=1
if k=275}107:if k=277}108
#93:wlcc L(j):go91
#97:a=apli:if a=2}98
EVHD H" "!C"OMMANDS "!P"ARAMETERS "!I"NFORMATION "!L"OAD∙APL
"!U"TILITIES ":ret
#98:EVHD H" "!C"OMMANDS "!P"ARAMETERS "!I"NFORMATION "!L"OAD∙APL
"!U"TILITIES "!M"ENU∙APL ":ret
#99:woff:moff:call97:quit
#100:i=mloc:call4:if s<>r}}if s<>0}106
i=mlin:if i<100}101:i=i-int(i/100)*100:if i=0}100:go110
#101:k=kyck:if k>283}}if k<292}112:if k<>0}102
I=MLOC:IF I>9999}}IF I<10079}106
i=mlin:if i=0}101:if i>99}104
if i>x-2}101:if i=j}101:j=i:go103
#102:if k=13}105:if k=27}99
if k=272}}if j>0}}j=j-1:if k=280}}if j<x-2}}j=j+1
if k=275}107:if k=277}108:if f=0}103
if k>64}}if k<91}}k=k+32:if k>96}}if k<123}109
#103:wlcc L(j):go101
#104:i=i-int(i/100)*100:j=i:I=MLOC:IF I>9999}}IF I<10079}106
#105:r=0:i=mlin:if i>99}105:ret
#106:r=1:ret:|top bar|
#107:r=2:ret:|<--|
#108:r=3:ret:|-->|
#109:r=4:k=k-97:ret:|A to Z|
#110:i=mlin:i=i-int(i/100)*100:if i=j}111:j=i:wlcc L(j)
#111:i=mlin:if i<100}105:i=mloc
call4:if s<>r}}if s<>0}106:go110
#112:r=5:s=k-283:ret:|S-F1 to S-F8|
#117
windd wr3wc12R1C36"┘ └
Working! ":ret
#119
EVHD H" COMMANDS PARAMETERS INFORMATION "W" LOAD∙APL
"H" UTILITIES MENU∙APL ":go118
#120
i=apli:if i=2}119
EVHD H" COMMANDS PARAMETERS INFORMATION "W"
LOAD∙APL "H" UTILITIES "
#118
call117
Z=0:$a=fdir *.apl
if $a<>""}121
windd wr3wc19R1C36"┘ └
NO (.APL) FILES ":x=2
f=0:CALL100:IF R=1}1:IF R=2}40:IF R=3}150:if r=5}3:GO99
#121
C=1:I=0:J=0:l=0
$B=NDIR,IF $B=""}122:C=C+1
$C=NDIR,IF $C=""}122:C=C+1
$D=NDIR,IF $D=""}122:C=C+1
$E=NDIR,IF $E=""}122:C=C+1
$F=NDIR,IF $F=""}122:C=C+1
$G=NDIR,IF $G=""}122:C=C+1
$H=NDIR,IF $H=""}122:C=C+1
$I=NDIR,IF $I=""}122:C=C+1
$J=NDIR,IF $J=""}122:C=C+1
$K=NDIR,IF $K=""}122:C=C+1
l=1
#122
windd WR(C+2)WC16R1C36"┘ └"nnnnnnnnnnnn
IF Z=1}123
WDSP L1" "$A:GO124
#123
WDSP L1" "$K
#124
WDSP L2" "$BN" "$CN" "$DN" "$EN" "$FN" "$GN" "$HN" "$IN" "$J"
"!M"ORE "
X=C+2:f=1:CALL100:IF R=1}1:IF R=2}40:IF R=3}150:if r=5}3:if r=4}c137
IF Z=0}125
call117:IF J<>1}126:LOAD$K:GO99
#125
call117:IF J<>1}126:LOAD$A:GO99
#126:IF J<>2}127:LOAD$B:GO99
#127:IF J<>3}128:LOAD$C:GO99
#128:IF J<>4}129:LOAD$D:GO99
#129:IF J<>5}130:LOAD$E:GO99
#130:IF J<>6}131:LOAD$F:GO99
#131:IF J<>7}132:LOAD$G:GO99
#132:IF J<>8}133:LOAD$H:GO99
#133:IF J<>9}134:LOAD$I:GO99
#134:IF J<>10}135:LOAD$J:GO99
#135:IF J<>11}99:Z=1:GO121
#137:j=0:if k=12}}if l=1}}j=11:ret
#140
TONE50:WLCC L2F4B2
MENUU bb4bf15b13f0IM"───── EXITTING MATH EXTRA!
"!E"XIT NOW
"!S"AVE VARIABLES & MEMORIES FIRST
"!C"ANCEL EXIT!"X
J=MLVL:IF J=1}144:IF J=2}143:GO99
#143
SAVV
SAVM
#144:EXIT:go99
#149
windd wr3wc12R1C46"┘ └
Working! ":ret
#150:i=apli:if i=2}152
EVHD H" COMMANDS PARAMETERS INFORMATION
LOAD∙APL "W" UTILITIES "H"":GO153
#152:EVHD H" COMMANDS PARAMETERS INFORMATION LOAD∙APL
"W" UTILITIES "H" MENU∙APL "
#153:call149
Z=0:$a=fdir *.UTL
if $a<>""}154
windd wr3wc19R1C46"┘ └
NO (.UTL) FILES ":x=2
f=0:CALL100:IF R=1}1:IF R=2}120:IF R=3}200:if r=5}3:GO99
#154
C=1:I=0:J=0:l=0
$B=NDIR,IF $B=""}155:C=C+1
$C=NDIR,IF $C=""}155:C=C+1
$D=NDIR,IF $D=""}155:C=C+1
$E=NDIR,IF $E=""}155:C=C+1
$F=NDIR,IF $F=""}155:C=C+1
$G=NDIR,IF $G=""}155:C=C+1
$H=NDIR,IF $H=""}155:C=C+1
$I=NDIR,IF $I=""}155:C=C+1
$J=NDIR,IF $J=""}155:C=C+1
$K=NDIR,IF $K=""}155:C=C+1
l=1
#155
windd WR(C+2)WC16R1C46"┘ └"nnnnnnnnnnnn
IF Z=1}156
WDSP L1" "$A:GO157
#156
WDSP L1" "$K
#157
WDSP L2" "$BN" "$CN" "$DN" "$EN" "$FN" "$GN" "$HN" "$IN" "$J"
"!M"ORE "
X=C+2:f=1:CALL100:IF R=1}1:IF R=2}120:IF R=3}200:if r=5}3:if r=4}c137
IF Z=0}158
call149:IF J<>1}158:RUN$K:GO99
#158
call149:IF J<>1}159:RUN$A:GO99
#159:IF J<>2}160:RUN$B:GO99
#160:IF J<>3}161:RUN$C:GO99
#161:IF J<>4}162:RUN$D:GO99
#162:IF J<>5}163:RUN$E:GO99
#163:IF J<>6}164:RUN$F:GO99
#164:IF J<>7}165:RUN$G:GO99
#165:IF J<>8}166:RUN$H:GO99
#166:IF J<>9}167:RUN$I:GO99
#167:IF J<>10}168:RUN$J:GO99
#168:IF J<>11}99:Z=1:GO154
|application menu jumps here when <-- cursor key is hit|
#199:go150
|application menu|
#200:i=apli:if i<>2}99